home *** CD-ROM | disk | FTP | other *** search
/ Macwelt 1 / Macwelt DVD 1.toast / Web-Publishing / HTML-Editoren / Alpha ƒ / Mode Examples / Mail-Example.tcl < prev    next >
Encoding:
Text File  |  2000-10-30  |  988 b   |  28 lines
  1. ## -*-Tcl-*-
  2.  # ==========================================================================
  3.  #  Mode Examples - a Help package for Alpha
  4.  # 
  5.  #  FILE: "Eudora-Example.tcl"
  6.  #                                    created: 10/17/00 {02:18:43 pm} 
  7.  #                                last update: 10/20/00 {11:29:29 am} 
  8.  #  Description: 
  9.  #  
  10.  #  Script for the "Eudora Example" in the Mode Examples package.
  11.  # 
  12.  #  Author: Craig Barton Upright
  13.  #  E-mail: <cupright@princeton.edu>
  14.  #    mail: Princeton University, Department of Sociology
  15.  #          Princeton, New Jersey 08544
  16.  #     www: <http://www.princeton.edu/~cupright>
  17.  #  
  18.  # ==========================================================================
  19.  ##
  20.  
  21. mailNewMsg ;
  22. insertText "cupright@princeton.edu" ; nextLine ; endOfLine ;
  23. insertText "Thanks!" ; nextLine ; nextLine ; 
  24. insertText "\rDear Craig,\r\r" ;
  25. insertText "Thanks so much for creating the Mode Examples Folder.\r\r" ;
  26. insertText "Sincerely,\r\r"    
  27.  
  28. setWinInfo dirty 0